﻿Public Class Archivos

    Public Shared Sub CrearArchivo(ByRef rp As DotNetResponse.SQLPersistence, ByRef Bytes As Byte(), ByVal RutaDestino As String)
        Try
            System.IO.File.WriteAllBytes(RutaDestino, Bytes)
        Catch ex As Exception
            rp.Errores = True
            rp.MensajeError = ex.Message
        End Try

    End Sub
    Shared Sub DeleteFile(ByRef rp As DotNetResponse.SQLPersistence, ByRef Ruta As String)
        Try
            IO.File.Delete(Ruta)
        Catch ex As Exception
            rp.Errores = True
            rp.MensajeError = ex.Message
        End Try
    End Sub

    'Public Shared Sub CopyFile(ByRef rp As DotNetResponse.SQLPersistence, ByVal ArchivoOrigen As String, ByVal ArchivoDestino As String, Optional ByVal CredencialUsuario As String = "", Optional ByVal CredencialClave As String = "", Optional ByVal CredencialDominio As String = "")

    '    If CredencialUsuario.Trim.Length > 0 Then
    '        Dim admin_token As IntPtr
    '        Dim dup_token As IntPtr

    '        Dim wid_admin As WindowsIdentity = Nothing
    '        Dim wic As WindowsImpersonationContext = Nothing
    '        Try
    '            'If LogonUser("administrador", "192.168.0.17", "@0923260663", 9, 5, admin_token) <> 0 Then
    '            If LogonUser(CredencialUsuario, "", CredencialClave, 9, 0, admin_token) <> 0 Then
    '                If DuplicateToken(admin_token, 2, dup_token) <> 0 Then
    '                    wid_admin = New WindowsIdentity(dup_token)
    '                    wic = wid_admin.Impersonate '(dup_token)
    '                    System.IO.File.Copy(ArchivoOrigen, ArchivoDestino, False)
    '                End If

    '            Else
    '                rp.Errores = True
    '                rp.MensajeError = "acceso denegado"
    '            End If
    '        Catch se As System.Exception
    '            rp.Errores = True
    '            rp.MensajeError = se.Message

    '            DotNetDAL.Generica.SaveEventViewer("Aplicacion SIS", EventLogEntryType.Error, rp.MensajeError)

    '        Finally
    '            If wic IsNot Nothing Then
    '                wic.Undo()
    '            End If
    '        End Try
    '    Else
    '        Try
    '            System.IO.File.Copy(ArchivoOrigen, ArchivoDestino, False)
    '        Catch se As System.Exception
    '            rp.Errores = True
    '            rp.MensajeError = se.Message
    '        End Try

    '    End If

    'End Sub

End Class
